home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Code Samples / autofind / source / navbutn.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  459 b   |  23 lines  |  [TEXT/ttxt]
  1. --<<<
  2. -- Class NavigationButton
  3. in module Autofinder
  4.  
  5. if NOT (isdefined Button) do filein theScriptDir name:"button.sx"
  6.  
  7. class NavigationButton (TwoDShape, Button)
  8. instance variables
  9.     name
  10. end
  11.  
  12. method init self {class NavigationButton} #rest args #key name: ->
  13. (
  14.     apply nextMethod self args
  15.     self.name := name
  16. --    self.x := x
  17. --    self.y := y
  18.     self.authordata := self
  19.     self.activateAction := (adata pb toggledOn -> print self.name)
  20. )
  21.  
  22. "Compiled NavButn.sx"
  23. -->>>